home *** CD-ROM | disk | FTP | other *** search
/ CGI How-To / CGI HOW-TO.iso / chap2 / 2_1 / chkserv.pl < prev    next >
Encoding:
Perl Script  |  1996-06-15  |  647 b   |  29 lines
  1. #!/bin/perl
  2.  
  3. print "Content-type: text/html\n\n";
  4.  
  5. print <<EOH;
  6. <HTML>
  7. <HEAD><TITLE>CGI Script How-To: Test Script</TITLE></HEAD>
  8. <BODY>
  9. EOH
  10.  
  11. print "<H1>CGI Script How-to determine the type of server software</H1>\n";
  12.  
  13. $server_software = $ENV{'SERVER_SOFTWARE'};
  14.  
  15. if ($server_software =~ /^NCSA/)
  16. {
  17.     # Do something specific for NCSA HTTPd server software
  18.     print "Congratulations, you have a <B>NCSA HTTPd</B> server!\n";
  19.     print "<P>";
  20.     print "The complete server name is $server_software.\n";
  21. }
  22. else
  23. {
  24.     # Do something else for all other servers
  25.     print "You have a <B>$server_software</B> server.\n";
  26. }
  27.  
  28. print "</BODY></HTML>\n";
  29.